Option Explicit
Sub Q_Sample043()
    ']wޥζ Windows Script Host Object Model
    Dim myWsh  As IWshRuntimeLibrary.WshShell
    Set myWsh = CreateObject("Wscript.Shell")
    myWsh.Run "Notepad", 1, True			'wnҰʪε{
    MsgBox "OƥwgC"
    Set myWsh = Nothing					'
End Sub
